home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / loadwork.clssa < prev    next >
Text File  |  1995-01-24  |  1KB  |  73 lines
  1. /***********************************************************************
  2.   $DAT >>LoadWork.clssa<<   25.10.1993 - (C) ProDAD Holger Burkarth
  3. ************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6.   PARSE ARG filename
  7.   Address clariSSA
  8.  
  9.   FailAt 20
  10.   AltFail=RESULT
  11.  
  12.   DO FOREVER
  13.     ALaden=""
  14.     IF filename="" THEN DO
  15.       FileSelect "TITLE 'Arbeitsdaten laden' PTEXT 'Laden'"
  16.       filename=RESULT
  17.     END
  18.     IF filename="" THEN LEAVE
  19.  
  20.     IF Open(loadit, filename, 'Read') THEN DO
  21.       line=Readln(loadit)
  22.       IF line="; clariSSA-SaveWork" THEN DO
  23.         line=Readln(loadit)  /** eine Zeile Ã¼berspringen **/
  24.         DO FOREVER
  25.           line=Readln(loadit)
  26.           IF line="" | line="#" THEN LEAVE
  27.  
  28.           PARSE VAR line "ANIMATION" xx .
  29.           IF xx~="" THEN  DO
  30.             IF ALaden="" THEN DO
  31.               BOOLRequest "'Letzte Animationen einladen?'"
  32.               ALaden=RESULT
  33.             END
  34.             IF ALaden="YES" THEN  ret=LoadAnimLayOut(line)
  35.           END
  36.           ELSE DO
  37.             line
  38.           END
  39.  
  40.         END
  41.       END
  42.       ELSE Message "'Falsche Datei!'"
  43.  
  44.       call Close(loadit)
  45.     END
  46.  
  47.     LEAVE
  48.   END
  49.  
  50.   FailAt AltFail
  51. exit
  52.  
  53.  
  54. GetVersion: procedure
  55. DO
  56.   Information
  57.   PARSE VAR RESULT . "VERSION:" cl .
  58.   RETURN(cl)
  59. END
  60.  
  61.  
  62.  
  63.  
  64. LoadAnimLayOut: procedure
  65. DO
  66.   ARG Animation
  67.  
  68.   PARSE VAR Animation 'ANIMATION' Anim '"' AnimFile '"' .
  69.   LoadAnim Anim "NAME" AnimFile
  70.   RETURN(1)
  71. END
  72.  
  73.